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File System Cache Flush Server 1b-sep-1984 90: 98:32 yAx 


-74 P 1 
14-Sep-19 4 “mF }| 
| 


001 9 MODULE FILESERV ( RTITLE ‘File System Cache Flush Server' 
§ MAIN = CACHE 8 RVER, 
* IDENT = 'V04=000' 
0004 d= 
0005 1 BEGIN 
ae 
449 4 i leutteneneneneeanettenenenenneereeteerentetentretentnetnntnntneenteetnettnet | 
'® ® 
0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY . 
0011 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. . | 
Boig ! is ALL RIGHTS RESERVED. ; 
0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * | 
0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
Bo8 1 !*® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
id } ke TRANSFERRED. * 
.* ® i 
0031 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
8087 : = CORPORATION. & 
. ® 
0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
oo $ : 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED SY DIGITAL. ® 
° ® 
i] 
0099 iseneennneeneeeeeeeeeeeeeeeeesensensnneccercnensnesssessneneesssennnnneesgens | 
0031 1 | 
Ooas 1 !e4 
0035 i FACILITY: VAX/VMS Cluster File System 
! 
0035 1 ! ABSTRACT: 
0036 1! 
0037 1! This module is the process responsible for flushing file system 
0038 1! caches when requested by other nodes in the cluster. It receives 
9484 : flush requests as kernel mode AST's queued by the swapper process. 
0041 ; ENVIRONMENT : 
$028 1 i VAX/VMS anereting system running as a member of a cluster; 
bee ! kernel mode and file system data structures. 
ane | 
Bpe8 ' AUTHOR: Andrew C. Goldstein, CREATION DATE: 17-Jul-1984 19:35 
9050 . MODIFIED BY: 
005¢ 1 i V03-001 ACG0438 Andrew C. Goldstein,  4-Aug-1984 20:43 
0053 1! Fix width of cache type field; fix args in call 
0054 1! to LIBSFREE_VM. 
0055 1! 
B238 1 !ee 
0057 1 
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3 8 1 

3 28 8 } LIBRARY ‘SYSS$LIBRARY:LIB'; 

; 61 61 1 FORWARD ROUTINE 

;. 6 § 99 1 SERVER ' main routine 

: 6 063 1 INITIALIZATION, i kernel mode initialization 
;: & 0064 1 GET_REQUEST : NOVALUE, ! request handling routine 

; 65 0065 1 START_REQUEST : NOVALUE; ! start next request 
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FILESERV File System Cache Flush Server 1§- Sep-1984 00:28:39 AX-11 Bliss-32 V4.0-742 Page 3 
v0e=000 er 8eenT3Rs 99:95:38 HTK BEF ETESeKG 83574 8° 23 | 
: 67 8066 1! 
; 68 067 1 ! Own Storage 
; oF 068 1! 
;. Fw 4 1 | 
: 71 0 1 OWN | 
: ie 4 1 ' work request queue head 
; 7 0 if 1 WORK _QUEUE : VECTOR (2) INITIAL (WORK_QUEVE, WORK QUEUE), 
.- i 1 Y; flag indicati ing we're busy 
Tee | 074 1 CHANNEL, channel for file fyeter calls 
: 76 075 1 CCB : REF SBBLOCK, / oddress of channel 
goes 4 4 Bore 1 i FIB for cache ‘t eathe 
; 78 it 1 10_STATUS : VECTOR (4 WORD, mi THQ” status block 
: 79 076 1 FIG : SB5L OCK fF BSC 
3 80 0079 1 PRESET ( FIBSWe EATRLONCD = FIBSC sf LUSH. CACHE), | 
; 81 0080 1 T descriptor for abov 
; 3 s+ : FIB_DESC : VECTOR (C2) INITIAL Fl $c LENGTH, ‘i8): 
: «B4 0083 1! | 
: 85 0084 1 ! Structure of queue entry 
; & 0085 1! 
, Br 0086 1 
ee -{ | 0087 1 MACRO 
° 9 0088 1 QE_FLINK = 0, 0, 3° 0 . 
: 90 0089 1 QE_BLINK = 4, 0, 32, 0%, 
: «(91 0090 1 QE_UCB = 8, 0, 32, 0%; 
ee 0091 1 
: 9 0092 1 LITERAL 
: 94 0093 1 QUEUE _SIZE = 12; 
0094 1 
: 8696 0095 1! 
5 97 0096 1 ! Structure of UCB / cache ID parameter 
:; «698 0097 1! 
: 99 0098 1 
: 100 0099 1 MACRO 
: «101 0100 1 CACHE_] = 0, 0, 3, 0%, 
: 102 0101 1 UCB NADDRESS = 0, 3, 29,0 %; 
: 10 B10 1 
> 104 0103 1! 
; 105 0104 1 ! Macro to generate a bug check 
> 106 0105 1! | 
3: 107 0106 1 
: 108 0107 1 MACRO 
; 109 ™0108 1 BUG_CHECK (CODE, MESSAGE) = 
s 310 M B190 1 BEGIN 
: 111 m0110 1 BUILTIN 
: Ng m0O111 1 EXTERNAL nL eRaL XNAME ( *BUGS_', CODE); 
> 11 O11¢ 1 BUGW (ZNAME ('BUGS_', CODE) OR 4) 
: 114 M011 1 END 
s 95 0114 1 3 


do 8 
FILESERV File System Cache Flush Server 16-Sep-1984 00:28:39 X-11 Bliss-32 V4.0-74 Page 4 
v04- J aaa 1 1 98:32 fet 1X. SRCIFILESER ; ° (3). 


GLOBAL ROUTINE CACHE SERVER = 


'++ ‘ 
i 


FUNCTIONAL DESCRIPTION: 


This is the main program and onsey point of the cache ge erv 
all it does is to dive into kernel mode to accomplish initialization. 


CALLING SEQUENCE: 
CACHE _SERVER () 


INPUT A ch 


sali docs 


i 

! 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i OUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: : 

System status code if initialization error 

i SIDE EFFECTS: 
Pe Cache server process started 

2 | 
BEGIN | 
SCMKRNL (ROUTIN = INITIALIZATION) 

END; ! End of routine CACHE_SERVER 


ce ee ee a ee ae Be ee ee DD ee ee ed ed ed ed 
DVI BS ES ES BE EE AAAI nnnonunononnnnn = 
UNO OCONAUE WN 0 ODNOUSWN —OVONOULWWNH—OVOOon 3 
a a D 


DVDS BBE BEE EE EWAN NAIAIPPPUPINNNPONINN 


=O OONA AEWN 0 DOONAN EWN S(O ODOVNOUNE WN OOONOUW 
AAI at st at at a ts 


pep elena lalallala lolaloleolelalelelelelelelelelelelolelelelealeoleololelololoa) 


TITLE ehyaa ty File System Cache Flush Server 
ENT \V04-000\ 


-PSECT SOWNS,NOEXE,2 
00000000" 00000000" 00000 WORK_QUEUE: 


-ADDRESS WORK_QUEUE, WORK_QUEUE ; 
00008 BUSY: 4 

3006 CHANNEL:.BLKB = 4 
010 CCB: 4 
0014 10 STATUS: 
00 0001C FIB: “BYTE Or2 2) | 
001 «WORD 1 3 | 
“BLKB 40 | 
00000040 C FIB_DESC: os 


- LONG 
00000000° 00060 «ADDRESS FIB : 


1$rSe0-1984 99:28:52 YNGT1 BL fn4-32_y4.95742 Page § 
~EXTRN SYSSCMKRNL 
-PSECT S$CODE$,NOWRT,2 


File System Cache Flush Server 


0000 68 ENTRY CACHE_SERVER, Save nothing : 0115 
3 0 CLRL -(SP) 3; 0149 

0000v CF 9F 00004 PUSHAB INITIALIZATION 3 

000000006 00 02 FB 00008 CALLS #2, SYSSCMKRNL 5 
04 0000F RET ; 0151 


; Routine Size: 16 bytes, Routine Base: S$CODES + 0000 


FALESERV File System Cache Flush Server 
ROUTINE INITIALIZATION = 
'e4¢ 

' 


FUNCTIONAL DESCRIPTION: 


_ 
mn 
OONOW 


simply of writing the process 
ernel mode. 


CALLING SEQUENCE: 
INITIALIZATION () 


! INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
xQ 


XQPS$GL_F 


ROUTINE VALUE: 
(Does not return) 


SIDE EFFECTS: 


i 

i 

i 

i 

' 

i 

i 

i 

i 

1 

i 

i 

i 

i 

' OUTPUT PARAMETERS: 
NONE 

i 

i 

i 

i 

i 

i 

i 

! 

Cache server process started 
le 


L_FF CHAN 


D0 0000000000 G9 oa Oo aN 
BRAN TSSSVSAPAV SS SANS RAN TVSS SIS SFaASSS 


= JSB (; REGISTER = 
: NOTUSED (3, 4, 5, 


LOCAL 


a ed a dd nd nd ed wd od od 


EXTERNAL 
CTLSGL_PCB 


OO OOOO OO O00 00 09 09 09 09 09 09 09 SINISE NINN NNO OAAAAAAAOAOOUMIUININIUIUGDN 


COOoooooo°oo 
BLUER Ro HOH MOA PO ODES MOA EUR 2 OOOI WO UN INI OOOO Worn row > OOO ara 


mrnr— 


SOoOCCooCooOoOUCNOO 
SSLESRANLS SELES 
fe ee ie we www wn nw lawn ww ww nw ww aw lo lal olololeloleleleloleloleleleololelololelelolol ole ole ola a) 


POPOPIPIMPONMIARINNY 2 a a tt tt at a 8) hh SO 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
LINKAGE 


— 
-—o 


' Set up a channel on which to do 1/0. 


bosep-19Bs 00:98:39 yay 


TS 
orarsp itateny ENTRY: receives entr 


This routine initializes the reghe petver process. This consists 
presese can be found by the swapper. This routine executes in 


nto system common so the 


point for requests 


SERVER: receives PID of this process 


1, REGISTER = 2) 


Oo, f. B Fa 10, T9)2 
STATUS; ' system status return 


: REF $BBLOCK ws tar no (GENERAL), 
a 


rocess PID 


! ress 0 
XOPSGL_FILESERV_ENTRY : ADDRESSING MODE (GENERAL), 
XQPSGL_FILESERVER : ADDRESSING_MODE (GENERAL); 

! system cell to store PID 

EXTERNAL ROUTINE 
IOCS$FF CHAN : LLFFCHAN ADDRESSING_MODE (GENERAL); 

' find available 1/0 channel 


8 
EER i Sree bake ties Soro NERA ABER UNGAR 


; Routine Size: 59 bytes, Routine Base: S$CODE$ + 0010 


| 
| 
: 1 09 ! 
3 2) 10 
5 1G 11 STATUS = eee f i CHANNEL as 
> 215 9 IF NOT .STATUS THEN .STATU 
; 1 0 17 CCBCCCB$B_AMOD) = Pst t URERNEL + Us 
3 6 1? } Set up our PID in system space and then wait for work to roll in. | 
3 20 0 i$ 
; 1 0218 XQPS$GL_FILESERV_ENTRY = GET 4} Het | 
; ¢ 0 19 XOPSGL-FILESERVER = .CTLSGL~ Bepée PID); 
3 4 0 1 WHILE 1 
: 5 é DO SHIBER: 
3 § 6 0 
3 7 0224 1 
; 228 0225 1 END; ! End of routine INITIALIZATION 
eEXTRN CTLSGL_PCB pot ie _FILESERV_ENTRY 
“EXTRN XOQP$GL~FILESERV 
-EXTRN JIOCSFFCHAN, SY SSHIBER 
0004 00000 INITIALIZATION: 
-WORD Save R2 3; 0152 
00000000G 00 16 0000 JSB IOCSFF CHAN 3; 0211 
0000° CF 51 7D 0000 MOVQ R1, CHANNEL 3 
gh 50 €9 00000 BLBC STATUS, 2$ 3 osi¢ 
0 0000' CF oO 9010 MOVL (CCB, RO : 021 
09 8 AO 01 90 0001 MOVB #1, 9(RO) 3 
00000000G 00 Q000V CF oF 00019 MOVAB GET REQUEST, XQPS$GL_FILESERV_ENTRY 3; 0218 
50 00000000G 00 00 000 § MOVL CTLSGL_PC ; 0219 
00000000G 00 60 AO D0 000 MOVL 96(RO), XQPSGL_FILESERVER ; 
00000000G 00 00 FB 00031 1$ CALLS 40, SYSS$HI ; 0222 
F7 11 00038 BRB 1$ 3 
04 O003A 2% RET : 0225 
| 


H 8 

FILESERV File System Cache Flush Server 16-Sep-1984 00:28:39 AX-11 Bliss-32 V4.0-74 Page 8 FIL 
vOe000 . 12-808- 1 3b 99:98:38 F11X. SRCIFILESERV.B32; . fl 

: 230 § } ROUTINE GET_REQUEST (UCB) : NOVALUE = | 
i $3 § yi” | 
; 4 6 6 i FUNCTIONAL DESCRIPTION: | 
: 6 8 § 1 i This routine is entered as a kernel mode AST when a request to ‘ 
; 7 1 3 flush a cache occurs. We execute the request immediately if ‘ 
: : 8 ¢ : we are not currently busy, or queue it internally if we are. | : 
: 240 $ 1 | CALLING SEQUENCE: 
: gal ioe GET_REQUEST (UCB) | 
: 508 0239 1 | INPUT PARAMETERS: 
> 244 0240 1! UCB: address of UCB to aprrate on, with request type : 
3 346 8 $} : } encoded into low 4 bits ; 
: 247 0 2g 1 i IMPLICIT INPUTS: 
BoB Fe | Mitiee : 
: 250 0246 | i OUTPUT PARAMETERS: 
oe a 3 
: $38 0249 1 ! IMPLICIT OUTPUTS: 
Bee aay : 
: 336 0388 ; ROUTINE VALUE: 
; 258 0254 1 | 
: 259 0355 1 ! SIDE EFFECTS: : 
; 260 0256 1! Request initiated or queued : 
Bo Be : 
fe RN ; 
> 265 0261 : 
: 266 0 $¢ BUILTIN : 
Ps 267 026 INSQUE; ’ 
3 $08 0264 : 
> 269 0265 LOCAL ; 
3 $0 3 66 ENTRY : REF $BBLOCK; ! address of allocated queue entry : 
: 32 eh EXTERNAL ROUTINE : 
3 37 $87 LIBSGET_VM; ! allocate virtual memory : 
: 276 0 : 
: 275 0271 : 
: , 0 2 IF NOT .BUSY é 
: 28 rh gg STARTAREQUEST (UCB) | : 
; 280 ? : 
; Hl 4 IF NOT LIBSGET_VM (ZREF (QUEUE_SIZE), ENTRY) 3 
; 5 28 THEN PUG. CHECK (XQPERR, ‘Failed to allocate queue entry'); | : 
; 28 7 ENTRYLQE-UCB) = .UCB; : 
: 284 0 INSQUE (TENTRY, .WORK_QUEUE(1)); : 
3 5 1 END; : 
; 286 0282 3 


a 
FILESERV File System Cache Flush Server hes ep-1984 AX-11 Bliss-32 V4.0-74 P 9 
vas tts ’ : ee tets PRE pet EP eS faa Tt Eat oer 43) 
; 287 0283 1 END; ! End of routine GET_REQUEST 
.EXTRN LIBSGET_VM, BUGS_XQPERR 
0000 00000 GET -REQUEST: | . a aan 
e ve Me n Z 
3 08 ¢ SUBL2 B.S ° 5 
0 0090" CF CE BLBS Busy : 0272 
4 AC DD a PUSHL UCB + 0274 
0000v CF 01 FB fr CALLS Hi, ia : 
04 AE F 0013 18: PUSHAB ENTRY : 0277 
04 AE OC 00 00016 MOVL #12, 4(SP) : 
04 AE 9F OOO1A PUSHAB 4(SP) : 
00006 CF 03 FB 0001 CALLS 2, L 1BSGET_VM : 
04 E8 000 2 BLBS : 
FEFF 000 BUGW : 0278 
0000* 00027 «WORD  <BUG$_XQPERR!4> : 
50 04 AE DO 00 9 2: MOVL ENTRY; RO : 0279 
08 Ad 04 AC DO 00020 MOVL -UCB "BR (RO) ; 
0000" oF 60 OF 000 : INSQUE (ROS, @WORK_QUEUE+4 + 0280 
04 0003 RET : 0283 


; Routine Size: 56 bytes, Routine Base: SCODE$S + 0048 


tt tt ttt CL CCC CC CLL LL. LL 


32 V4.0-74 Page 
ES 


J 8 
vane aoe" athe cmc h pre oes ee VecSep-1986 12:80:08 EFI ERV B32: 6 
E 


' work queue entry to process. If 
e 


: nothing to do. loop until we successfully fire off a flush request. 


UCB = .UCB_ARG; 
WHILE 1 DO 
BEGIN 


yo a oT oo lS, | 
MFwn—O”°0 


; 34 ¢ ! ROUTINE START_REQUEST (UCB_ARG) : NOVALUE = : 
3; 9 § 1 {++ ; 
; 1! ; 
; + 3 ! FUNCTIONAL DESCRIPTION: : 
; 295 90 1 ! This routine actually initiates a cache flush request. It is also : 
; 296 "3.8 entered as the completion AST of a flush operation to check if ‘ 
3 gor 0 3 11 another one is pending. ‘ 
; 298 0295 1! : 
; 299 0294 1 ! CALLING SEQUENCE: : 
; 64 8 32 ! } START_REQUEST (UCB_ARG) ; 
; Oe 0 ae INPUT PARAMETERS: : 
; wv 0298 1! UCB_ARG: address of UCB to operate on ; 
3 Be 8 + : } to get next entry from the work queue ‘ 
: 306 0301 1 =! IMPLICIT INPUTS: ; 
; 307 b308 1! NONE . 
; 308 0303 1! : 
H 09 0304 1 ! OUTPUT PARAMETERS: ‘ 
: 310 0305 1! NONE : 
3 57 0306 1! : 
; 31§ $444 1 ! IMPLICIT OUTPUTS: : 
a 3 0308 1! NONE : 
3 se 0309 1! : 
s 315 0310 1 ! ROUTINE VALUE: 
; 316 0311 1! NONE 
; $12 Oaig 1! 
5 18 031 1 ! SIDE EFFECTS: 
; 319 0314 1! Next queue entry, if any, initiated 
3 Seo 0315 1! 
3; 321 p38 1 !-- 
3 $§ 0317 1 
3 $5 0318 BEGIN 
; 324 0319 
3 3a? 0320 BUILTIN 
; 326 0321 REMQUE ; | 
; 327 O55 
; 328 032 LOCAL 
3 $3 0324 STATUS, ! system service status 
$ 0 0325 ENTRY : REF $BBLOCK, ! current work queue entry 
, 3a O59 ucB : SBBLOCK (4]; ! local copy of UCB address 
3 4 a 8 EXTERNAL ROUTINE 
3 3 Bs } LIBSFREE_VM; ! return virtual memory 
; 331 
} 35 3 § ! If no UCB address was given, we just completed a request. Get the next 
s 338 he work queue is empty, there's 
‘ 

| 

| 


K 
FILESERV File System Cache Flush Serve 
voue000 , ee 12 


) 
BUSY = 0; | 
IF .UCB EQL 0 | 
THEN 
BEGIN 
IF REMQUE. (WORK inst ENTRY) 
UCB = “ENTRY OE 
STATUS FREE. A} (ZREF ( Queu E SIZE), ENTRY); 
IF NOT .STATUS THEN BUG_CHECK CXOPERR. Unexpected VM error'); 
| 


é 


END; 


Unpack the cache identifier code from the low bits of the UCB 

address. Set up the channel and fire off the request. Note ee 

the volume and UCB are uninter locked while the request " opueue 

This is harmless since (1) disk UCB's never 9° away and (2) we ignore 

the appropriate errors if the volume is now dismounted (ae pote bly 
a different volume mounted). The worst that happens is that we do 

a unnecessary flush on some volume. 


AAD NIUNIUIUIUT ES 


RLVALJ = ,UCBCCACHE_1D]; 


WANNA 


y et ht PP PRN RR EN A NS ae 
MEAN (OO OONOUES WN HO ODNAUE WAN (OO ODONOUES WN OO OONO 


iOS ACFCONTROL. 
T REQUEST, 
DESC 


vwuuvuvv 
SOCOGOCOCOSOCGOOCOCOOSCOOOCOCOOCSCOCOOOOCOOCOOOOCOOOOOOoO 


WANA AAAI AWWW ANA AAAI AIAIWWAA AAA AAA A.A ANNA 
DNS SSN NSA AAA AAAAA AMM BP PPP EEE 


ITLCK 
US N EVNOTROUNT 
ATUS NE EVFOREIGN 
HECK (XQPE Unexpected Q10 service error'); 
END; ! end of loop 


! End of routine START_REQUEST 


SS$_WR 
SS$"D 
SS$"D 
RR, 


SOONAUES WIN ( O OONAUE WIN O OONOAUS AN O OONOULS wr 


~NINANWAWNNAAA NAW AWA AIAI NNW WINN A ANA BB BE PI 


Sete Se Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ss Se Se Se Se Se Se Se Ft Geese Se Se Ge Se Se Se Se Seas 


WAI NWA NWN 


oo 
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ee 


.EXTRN LIBSFREE_VM, SYS$QI0 
000C 00000 START_REQUEST: 

-WORD Save R2,R3 
9002 MOV BUSY, R3 

#8, §P 
MOVL UCB_ARG, UCB 
BUSY 

TSTL CB 
BNEQ $ 
REMQUE @WORK_QUEUE, ENTRY 
BVS 4$ 
MOVL NTRY, R1 
MOVL (R1). UCB 


53 0000° 
toes 
04 AE F8 


5 OB 


OM FWYVNIWOon" 


oo-0o—-C00007 0 
ooo ™rMufSorm 
oooooooo 
CoOoCoooooo 
—— tt st I OOD 
"DWOLwom>»> 
— 
bed 
mJ 
2 
z 
gt 
Sete Se Se Ge Se Se Sete te @ 
ooo 
Www 
rw 
Neen 


FPP NOMUVNG POO 


FILESERV 
vOe=000 


2c AS 


; Routine Size: 


; 386 
s 387 
: 388 


SOWNS 
SCODES 


File System Cache Flush Server 


144 bytes, 


0381 
0382 
0383 


04 
00006 


52 
08 


000000006 
0000025C 
0000007C 
00000064 


Routine 


1 END 
0 ELUDOM 


Bytes 


10 . 
275 NOVEC,NOWRT, RD, 


R 
16-Sep-1984 00:28:39 AX-11 BLi 
eree= 18s 99:88:38 | PANTY Bt Ss 
04 AE 9F 00023 PUSHAB ENTRY 
AE 0¢ po 0 3 MOVL #12, 4(SP) 
04 AE OF A PUSHAB 4(SP) 
CF 9 FB 0 CALLS #2, LIBSFREE_VM 
04 E8 00 BLBS § STATUS, 2$ 
FEFF BUGW 
0000* .WORD  <BUG$_XQPERR!4> 
63 01 DO 6 9 2$: MOVL #1, BOSY 
0 g cf 0 EXTZV #0, #3, UCB, FIB+24 
3¢ A 0004 BICB2 #7, UCB 
B 2 BO 004 MOVL UCB, accB 
7E 7C 049 CLRO = = (SP) 
7E 7C 00048 CLRQ  =(SP) 
re D4 00040 CLRL = = (SP) 
54 AS OF OOD4F PUSHAB FIB_DESC 
7E D4 00052 LRL ss = (SP) 
Ag AF 9F 00054 PUSHAB START_REQUEST 
OC AS 9F 00057 PUSHAB 10 STATUS 
33 DD OOOSA PUSHL a 
04 A DD 0005C PUSHL CHANNEL 
7E D4 0005F CLRL. = 
00 OC FB 90061 CALLS #12, SYS$QI0 
24 50 €8 9068 BLBS STATUS, 4$ 
BF 50 01 00068 CMPL TATUS, #604 
16 13 00072 BEQL 
8F 50 01 00074 CMPL TATUS, #124 
0D 13 00078 BEQL 
8F 50 01 0007D CMPL = STATUS, #100 
04 13 00084 BEQL «6s 3$ 
FEFF 00086 BUGW 
0000* 00088 »WORD <BUG$_XQPERR! 4> 
52 b4 0008A 3$ CLRL si 
FF7F 31 0008C BRW 
04 O008F 4$ RET 
Base: $CODES + 0083 
PSECT SUMMARY 


Attributes 


RD ,NOEXE,NOSHR, LCL, REL, 


NOVEC, WRT, 
EXE,NOSHR, LCL, REL, 


ss-32 oh et od 
ILESERV.B32; 
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siren sce ht IESSEDcISRS (0:88:38 UMGGLTSBLP ITE N4- 8504? oe ai 
Library Statistics 


<" 


FILESERV 
vOe=060 
3 eneneniien am SyYEROLS cocceare Pages 
: File Total Loaded Percent Mapped 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 18 0 1000 00:01.9 
| 


Processin 
Time . 


; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS$:FILESERV/OBJ=OBJ$:FILESERV MSRC$:F ILESERV/UPDATE=(ENH$:F ILESERV) 


3; Size: 275 code + 100 data bytes 
3; Run Time: :08. 
3; Elapsed Time: 00:18.4 
3 Lines/CPU Min: 2732 

3; Lexemes/CPU-Min: 11935 

; penecy Used: 83 pages 

; a 


; Compilation Complete 
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